home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / amitex / arexx / guidecalc.amitex < prev    next >
Encoding:
Text File  |  1997-01-12  |  965 b   |  44 lines
  1. /* Script de lancement d'AmigaGuide pour avoir une explication sur
  2.    une instruction EdiCalc spécifiée. Utilise EdiCalc.guide.
  3.    Chez Corbin, 25 Août 1996, version 1.00
  4.    Chez Corbin, 12 janvier 1997, version 1.01 */
  5.  
  6. signal on error
  7. options results
  8.  
  9. port=address()
  10.  
  11. if ~show(p, "AIDE_EDICALC.1") then do
  12.     address command
  13.     'run AmigaGuide Travail:EdiCalc/EdiCalc.guide PORTNAME AIDE_EDICALC.1 REQUESTER'
  14.     node = lecture_node(port)
  15.     address command
  16.     do 20 while ~show('P', "AIDE_EDICALC.1")
  17.     waitforport AIDE_EDICALC.1
  18.     end
  19. end
  20. else node = lecture_node(port)
  21.  
  22. address AIDE_EDICALC.1
  23. 'unzoomwindow'
  24. 'windowtofront'
  25. 'Link' node
  26.  
  27. exit
  28.  
  29. error:
  30. 'MESSAGE("Script GuideCalc"+CHR(10)+"Erreur en ligne 'SIGL'")'
  31. exit
  32.  
  33. lecture_node: procedure
  34.     parse arg port
  35.     address(port)
  36.     'WORD(1)'       /* Lecture du mot courant */
  37.     node = result
  38.     if node = "" then do
  39.     'ASK("Nom du node ?")'
  40.     node = result
  41.     if node = "" then exit
  42.     end
  43. return node
  44.